################
#PSRM: Explaining Support for Redistribution: Social Insurance Systems and Fairness
#
#Experimental Data
#Analysis
#
#Verena Fetscher
#July 2022
####################

rm(list=ls())

#setwd("your/master/file/location")

sink("analysis_experiment_logr.log")
##########################
#Load packages
##########################

library(tidyverse)
library(ggpubr)
library(coin)
library(xtable)

set.seed(123)


# Main text
source("figure_4.R", echo=TRUE, max.deparse.length=Inf) #Produces Figure 4

# Appendix
source("table_d7.R", echo=TRUE, max.deparse.length=Inf) #Produces Table D.7
source("figure_d17.R", echo=TRUE, max.deparse.length=Inf) #Produces Figure D.17
source("figure_d18.R", echo=TRUE, max.deparse.length=Inf) #Produces Figure D.18

sink()
